home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / biz / swood / fw_font.lha / FW_Font / FontLook.fwrexx < prev    next >
Text File  |  1997-01-20  |  4KB  |  177 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. R='0A'X
  4. Address='FinalW'
  5. Options results
  6. STATUS PORTNAME
  7. FW=result
  8. address=FW
  9. SIGNAL ON BREAK_C
  10. 'ShowMessage 2 0 "FontLook V2.70" "für einzelne Fonts..." "(©) Heiko Schröder - 20.01.97" ":-)" "Ok" "(-:"'
  11. 'ShowMessage 1 1 "A C H T U N G !" "Das Makro benötigt ein leeres Dokument." "Ihr Dokument wird gelöscht!" "Ja" "Abbruch" ""'
  12. if result=2 then call BREAK_C
  13. Cleardoc Force
  14. 'ShowMessage 2 0 "Codes oder Layout" "" "" "Codes" "Layout" ""'
  15. cl=result
  16. 'ShowMessage 2 0 "Wie soll die" "Bilschirmausgabe erfolgen?" "" "Normal" "Speed" ""'
  17. ba=result
  18. 'ShowMessage 1 0 "Benötigen Sie Locher-Marken?" "" "" "Ja" "Nein" ""'
  19. lm=result
  20. IF ba=2 THEN;DO
  21. status WINDOW
  22. parse VAR result links oben width height minwidth minheight maxwidth maxheight
  23. sizewindow minwidth minheight
  24. End
  25. GetDocItemPrefs Decimal
  26. Punkt=Result
  27. If Punkt="Comma" then DocItemPrefs Decimal Period
  28. Font
  29. a=RC
  30. If a=0 then;do
  31. Type d2c(32)
  32. BackSpace
  33. status FontPath
  34. FullFontName=result
  35. pos=LASTPOS('/',FullFontName)
  36. IF (pos~=0) THEN
  37. FontName=RIGHT(FullFontName,LENGTH(FullFontName)-pos)
  38. ELSE;DO
  39. pos=LASTPOS(':',FullFontName)
  40. IF (pos~=0) THEN
  41. FontName=Right(FullFontName,LENGTH(FullFontName)-pos)
  42. ELSE EXIT
  43. END
  44. IF ba=2 THEN View 20
  45. Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  46. SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  47. GraphicTool
  48. LinePrefs LineWt .5
  49. DrawLine 1 2 3.5 20 3.5
  50. DrawLine 1 2 26 20 26
  51. If lm=1 then DrawLine 1 .5 14.85 1 14.85
  52. TextTool
  53. If cl=1 then;do
  54. Do i=0 to 13
  55. SetTab i*1.3+0.8 Right
  56. End
  57. Justify Center
  58. Font Softsans
  59. FontSize 18
  60. Type FontName||R||R
  61. a=0
  62. DO w=1 to 15
  63. Font Softsans
  64. FontSize 8
  65. DO x=a+33 to a+46
  66. Type d2c(9)||x|| d2c(32)|| d2c(x)
  67. END
  68. Type R
  69. Font FontName
  70. FontSize 24
  71. DO x=a+33 to a+46
  72. Type d2c(9)
  73. Type d2c(x)
  74. END
  75. Type R
  76. a=a+14
  77. END
  78. Font Softsans
  79. FontSize 8
  80. DO x=a+33 to a+45
  81. Type d2c(9)||x|| d2c(32)|| d2c(x)
  82. END
  83. Type d2c(9)||R
  84. Font FontName
  85. FontSize 24
  86. DO x=a+33 to a+45
  87. Type d2c(9)
  88. Type d2c(x)
  89. END
  90. Type d2c(9)||R
  91. FontSize 12
  92. Type d2c(9)||R
  93. Font Softsans
  94. FontSize 8
  95. Justify Right
  96. Type Date(E)" - "FullFontName
  97. END
  98. If cl=2 then;do
  99. Justify Center
  100. Font Softsans
  101. FontSize 18
  102. Type FontName||R
  103. Justify Left
  104. Font FontName
  105. FontSize 8
  106. Type R||"This is 8-point type - not easy to read!"||R
  107. FontSize 9
  108. Type "9-Point type is about the smallest readable size."||R
  109. FontSize 10
  110. Type "With 10-point type, we have a normal text size."||R
  111. FontSize 12
  112. Type "With some Fonts, 12-point type is easier to read."||R
  113. FontSize 14
  114. Type "14-point type is good for subheadings."||R
  115. FontSize 16
  116. Type "For larger subheadings, try 16-point type."||R
  117. FontSize 18
  118. Type "18-point type makes nice small headlines."||R
  119. FontSize 24
  120. Type "24-point type is for medium headlines."||R
  121. FontSize 36
  122. Type "36-point is for larger ones."||R
  123. FontSize 48
  124. Type "48-point almost shouts!"||R||R
  125. FontSize 12
  126. Font SoftSans
  127. Type "NORMAL"||R
  128. FontSize 10
  129. Font FontName
  130. Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
  131. Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R
  132. Type "The quick brown fox jumps over the lazy dog. ÄÖÜäöüß"||R||R||R
  133. FontSize 12
  134. Font SoftSans
  135. Type "ERWEITERTER SCHRIFTCODE"||R
  136. FontSize 10
  137. Font FontName
  138. j=0
  139. Do i=1 to 4
  140. Do k=128+j to 159+j
  141. Type d2c(k)
  142. End
  143. Type R
  144. j=j+32
  145. End
  146. Status BodyTextHeight
  147. th=result
  148. FG=26.24-2.113-th
  149. FG=Trunc(FG*8/0.34)
  150. FontSize FG
  151. Type d2c(9)
  152. Font SoftSans
  153. FontSize 8
  154. Type R
  155. Justify Right
  156. Type Date(E)" - "FullFontName
  157. END
  158. call WH
  159. 'ShowMessage 2 1 "Wie geht es weiter?" "" "" "Speichern" "Drucken" "Abbrechen"'
  160. If result=1 then Save
  161. If result=2 then Print
  162. END
  163. 'ShowMessage 2 0 "Vielen Dank für die Benutzung." "" "" ":-)" "Bitte" "(-:"'
  164. EXIT
  165. BREAK_C:
  166. 'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""'
  167. call WH
  168. address "REXX"
  169. Address command "delete ram:fonts QUIET"
  170. EXIT
  171. WH:
  172. If ba=2 then;do
  173. View
  174. sizewindow width height
  175. End
  176. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  177. Return